(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     63195,       1520]
NotebookOptionsPosition[     53189,       1303]
NotebookOutlinePosition[     53861,       1329]
CellTagsIndexPosition[     53781,       1324]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"6dfbeda6-e1f3-46aa-8bf2-3e4ced0e0825"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"3e8009a2-4ca6-4c31-93f3-34d1d6671bd9"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"66f6320f-c2a8-430f-ab8f-d0ebd8da9b3e"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"592c0de5-49e2-4bab-a7b6-4d4c5b61b2a2"]
}], "History",
 CellID->1247902091,ExpressionUUID->"08ae2e4f-958d-4e9c-aa29-e457fbe8ee10"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"7872b296-25ac-4a13-a194-7e9a6ed0e275"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"77571c6e-273f-4940-b1e2-51371ca68140"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.743836909082238*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"2e066afe-f166-4680-976d-5560219e535b"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.74383690921974*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"41931bc7-a8e5-48dc-8933-5f78bf52f5cf"],

Cell["MaXrd/ref/CrystalDensity", "Categorization",
 CellChangeTimes->{3.743836909409505*^9},
 CellLabel->"URI",ExpressionUUID->"57ab3839-b5be-4644-8c87-763713ca811a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"86579194-1247-4e44-b2d2-36ce4f6a524b"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"e5576edd-cf61-4a24-a239-f297bea472c4"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"55a5d32f-67b1-45b3-94ba-85282d4ffeee"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"78d6b351-cde4-4b42-80b6-73b46016c3de"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"b3bf4e70-109b-49a1-b162-3befcb167c32"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"93e07d46-dcfa-4be7-82ce-3da82a8d8e70"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"045c21b9-0391-4bf1-a9c9-5daad23213e1"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"81020de1-95f4-40a7-861c-a4587e465e9c"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"b5c0dd23-fec7-479d-b8d8-8f10c8372868"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"8a3e8eec-4c68-4a89-abf1-c0e8c6b8ca51"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"fee0eb39-e538-428d-87fe-5e7d20f55023"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"6128b8eb-5eeb-4b95-b669-a0751cae9c55"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"307caff7-54aa-470e-bad3-bca18adcc49c"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"abbe8045-83b0-4ea4-b51f-863c96402f89"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"1221667f-b4e0-431e-abb8-e57f523ab656"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"6bb70b33-1547-49ea-94a0-802da36c777b"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"afb175f8-0d1a-4d69-8035-de0845bdb700"]
}, Closed]],

Cell[CellGroupData[{

Cell["CrystalDensity", "ObjectName",
 CellID->1224892054,ExpressionUUID->"6aad8ba7-e2bf-4964-9f7d-00d39a421616"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"3edc93b5-87a3-4304-9451-e5354dd57f14"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["CrystalDensity",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/CrystalDensity"], "[", 
   StyleBox["crystal", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "0995f1c5-d16b-4f5b-95fd-d174decf345c"],
 " \[LineSeparator]calculates the mass density of ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "3ea472de-2ed0-48c9-82e9-9de7370cefc2"],
 "."
}], "Usage",
 CellChangeTimes->{{3.716884520218152*^9, 3.716884701681378*^9}, {
  3.7173207468781137`*^9, 3.7173207524924927`*^9}, {3.7349412218655663`*^9, 
  3.734941230493988*^9}, {3.734941272935713*^9, 3.734941276300921*^9}},
 CellID->982511436,ExpressionUUID->"ed97a533-bd70-4056-bf5e-34a6f6ede581"],

Cell[TextData[{
 "Output will always be given in ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    StyleBox["g",
     FontSlant->"Plain"], "/", 
    SuperscriptBox["cm", "3"]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"bd71b6bc-c5f7-4041-8e94-16e65cab16be"],
 "."
}], "Notes",
 CellChangeTimes->{{3.716884710838257*^9, 3.716884852478484*^9}, {
  3.7173207605194063`*^9, 3.717320760943314*^9}, {3.7349413215275307`*^9, 
  3.7349413320275803`*^9}},
 CellID->1067943069,ExpressionUUID->"4ec397ed-acba-4a61-9450-84534296431a"],

Cell[TextData[{
 "If the key ",
 Cell[BoxData[
 "\"\<MassDensity\>\""], "InlineFormula",ExpressionUUID->
  "d79dd714-c927-4620-a86b-b7555bfb6ec4"],
 " is contained in ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"6bb485a0-a4ce-4151-ba36-42dbc6d6da9e"],
 " for the crystal, it will be returned. If the number of formula units per \
unit cell, ",
 Cell[BoxData[
  FormBox["Z", TraditionalForm]], "InlineMath",ExpressionUUID->
  "1d236e58-0fbc-4ba0-8b0f-32085686de9d"],
 ", is present in ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"69d2d2a8-c730-4962-b874-a2a1df716084"],
 " for the given crystal, the density is calculated from:"
}], "Notes",
 CellChangeTimes->{{3.728621865892302*^9, 3.728621866668706*^9}, {
   3.7286219783000603`*^9, 3.728622097367435*^9}, {3.728622545350884*^9, 
   3.728622583331168*^9}, {3.728622627999723*^9, 3.7286226356929293`*^9}, {
   3.734942175911223*^9, 3.734942224779757*^9}, {3.734942271043157*^9, 
   3.734942321761434*^9}, {3.734942473704172*^9, 3.734942559563808*^9}, {
   3.7349435046900673`*^9, 3.73494352052787*^9}, 3.735024174168088*^9, {
   3.73502476403834*^9, 3.735024764165908*^9}},
 CellID->144274847,ExpressionUUID->"1bed98c7-08ed-4d03-9038-46950e078680"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{"\[Rho]", "=", 
    FractionBox[
     RowBox[{"Z", " ", "M"}], 
     RowBox[{"V", " ", 
      SubscriptBox["N", "A"]}]]}],
   FontWeight->"Plain"], TraditionalForm]], "Input",
 CellChangeTimes->{{3.717320800338516*^9, 3.71732084152707*^9}},
 TextAlignment->Center,
 CellID->937301987,ExpressionUUID->"592375c9-1791-421c-b127-4183a36c364e"],

Cell[TextData[{
 "where ",
 Cell[BoxData[
  FormBox["M", TraditionalForm]], "InlineMath",ExpressionUUID->
  "fa92e04b-e431-4c30-b6b2-87b3514b9c41"],
 " is the molar mass per formula unit, ",
 Cell[BoxData[
  FormBox["V", TraditionalForm]], "InlineMath",ExpressionUUID->
  "f273a4de-59a6-449f-b027-92504910361d"],
 " is the unit cell volume and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["N", "A"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "d5aba5e5-c5e0-4f3a-8f64-0dfb3d9afc25"],
 " is Avogadro's number.\[LineSeparator]If not, the density is calculated by \
dividing the total mass of the stored atomdata by the unit cell volume. Both \
site multiplicity and occupation factors are considered when counting the \
number of atoms."
}], "Notes",
 CellChangeTimes->{{3.717320853867999*^9, 3.717320925297965*^9}, {
  3.734979199331029*^9, 3.734979201402231*^9}, {3.734979232745826*^9, 
  3.734979287800042*^9}, {3.734979467476715*^9, 3.7349795417616777`*^9}},
 CellID->1153012519,ExpressionUUID->"507fca5b-a3fc-4bc3-b4e0-50565c700ccc"],

Cell["Options:", "Notes",
 CellChangeTimes->{{3.71492897284485*^9, 3.714928975071747*^9}},
 CellID->676761489,ExpressionUUID->"e335d214-cfb6-4b58-a38a-c508f0c8dd34"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "febadb77-c865-4279-bdd0-a0c27e9e1f8b"], "\"\<Units\>\"", 
    ButtonBox["True",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/True"], Cell[TextData[{
     "whether to return output as ",
     Cell[BoxData[
      ButtonBox["Quantity",
       BaseStyle->"Link",
       ButtonData->"paclet:ref/Quantity"]], "InlineFormula",ExpressionUUID->
      "760740cb-a99f-4bc8-af0f-91186390e7d7"]
    }], "TableText",ExpressionUUID->"a59bbdb3-2720-41d2-99da-6395323c1423"]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.714928980857592*^9, 3.7149290425465603`*^9}, {
   3.714929080497106*^9, 3.714929089510721*^9}, {3.734942783664963*^9, 
   3.734942828807527*^9}, 3.735023780152766*^9},
 CellID->410498224,ExpressionUUID->"1a434280-50d6-4018-9f39-501fd3f44a4c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"b0c8f7dc-9188-48c5-8b8a-5887eee598dd"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"91661020-ab34-4fd9-b0f7-8fd3d0d21d1b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"e4ce7d8a-bce7-4de0-aba4-38dda6835dfb"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"9e6ba8e6-b0d6-4eda-a19c-9bd4466a228a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"29082389-a295-4e24-bfc7-0ac3fa8a51a6"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"148e620e-8974-44b7-8d9b-017b33e73412"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"a402a45e-f876-495b-a649-fc2a0a86c09f"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["CrystalFormulaUnits",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/CrystalFormulaUnits"]], "InlineFormula",
  ExpressionUUID->"e89e0258-1f3e-4a40-acfc-97ccd802509f"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"e656fed6-4c60-407f-b2e3-929d6ebceac2"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["BraggAngle",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/BraggAngle"]], "InlineFormula",
  ExpressionUUID->"948b562d-2cb4-415a-abfa-bb5f86e0045d"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetCrystalMetric",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetCrystalMetric"]], "InlineFormula",
  ExpressionUUID->"d62edbd4-dedd-43c6-9392-c304a72c2569"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ImportCrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ImportCrystalData"]], "InlineFormula",
  ExpressionUUID->"4b1dd1ae-a29e-4c84-8046-b96cf53b7309"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetElements",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetElements"]], "InlineFormula",
  ExpressionUUID->"9a83f225-bed0-4954-ad55-2eb967eaac7b"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetLaueClass",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetLaueClass"]], "InlineFormula",
  ExpressionUUID->"50b2cfdb-d8a3-443a-b984-a64612da4717"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["AttenuationCoefficient",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/AttenuationCoefficient"]], "InlineFormula",
  ExpressionUUID->"2d8ea72d-d3fc-4b57-89eb-0bd2ce17925b"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetSymmetryData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetSymmetryData"]], "InlineFormula",
  ExpressionUUID->"981b9e7b-3655-443b-8eb2-1a084899c0b0"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["UnitCellTransformation",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/UnitCellTransformation"]], "InlineFormula",
  ExpressionUUID->"62aaeaa4-424f-4422-b287-ea6231001597"]
}], "SeeAlso",
 CellChangeTimes->{{3.72862393156194*^9, 3.72862398852701*^9}, {
  3.728624025534133*^9, 3.728624034381761*^9}, {3.7286243156650057`*^9, 
  3.728624319543654*^9}, {3.7349786228981533`*^9, 3.734978626872554*^9}, {
  3.737968471895192*^9, 3.7379684718953533`*^9}, {3.7379685222424793`*^9, 
  3.737968547943305*^9}},
 CellID->929782353,ExpressionUUID->"18705762-ca46-4849-8e9b-bd2f45942a00"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"1bb389a1-f6fb-4e65-900f-a5ae01be9925"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"bc80eba8-e023-48ef-ad74-34ad0a756c27"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"b9d31a61-2ed4-4cbe-bf0b-8c12ed936584"],

Cell[TextData[{
 "There are three ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["SiO", "2"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "d1632a33-0d54-4c51-9f32-bdf6f2f8e6db"],
 " formula units in the unit cell of quartz, but the function does not \
require that input."
}], "ExampleText",
 CellChangeTimes->{{3.7168850327503977`*^9, 3.716885087357706*^9}, {
  3.7349810149955997`*^9, 3.734981078112064*^9}},
 CellID->1780914380,ExpressionUUID->"c3a2815d-ad5f-4e0b-b779-bc6c4dee7e0b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalDensity", "[", "\"\<Quartz\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.734980959020914*^9, 3.734980962675251*^9}},
 CellLabel->"In[1]:=",
 CellID->273038913,ExpressionUUID->"6aa1b0d4-03d7-4721-ba1c-10916ff56a31"],

Cell[BoxData[
 TemplateBox[{
  "2.6475549164141436`",
   RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
     SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",FractionBox[
   "\"Grams\"", 
    SuperscriptBox["\"Centimeters\"", "3"]]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.734981083335251*^9},
 CellLabel->"Out[1]=",
 CellID->1081815814,ExpressionUUID->"6d4b6ed9-05e9-421f-81b9-e510b6035b6a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "dd8b7248-01ff-46bb-8ba4-47a63c8bfad5"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1124312790,ExpressionUUID->"f63a0140-4241-4f36-a969-dd5e175e12ae"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalDensity", "[", "\"\<Zinc\>\"", "]"}]], "Input",
 CellLabel->"In[1]:=",
 CellID->616451577,ExpressionUUID->"38b733a6-f09e-4bbb-acdd-378403644e81"],

Cell[BoxData[
 TemplateBox[{
  "7.1375400576264445`",
   RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
     SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",FractionBox[
   "\"Grams\"", 
    SuperscriptBox["\"Centimeters\"", "3"]]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.734981145455023*^9},
 CellLabel->"Out[1]=",
 CellID->498637176,ExpressionUUID->"ca6e602d-43f3-4050-b1f6-691bf9e5786a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalDensity", "[", "\"\<Nickel\>\"", "]"}]], "Input",
 CellLabel->"In[2]:=",
 CellID->450335195,ExpressionUUID->"2bfa204f-888c-4e11-a061-896676cb6073"],

Cell[BoxData[
 TemplateBox[{
  "8.91124832339679`",
   RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
     SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",FractionBox[
   "\"Grams\"", 
    SuperscriptBox["\"Centimeters\"", "3"]]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.734981201397999*^9},
 CellLabel->"Out[2]=",
 CellID->1840668652,ExpressionUUID->"8cca3331-dd76-4efa-bd79-5cba64d726fa"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"54b51e11-72ba-4018-9188-77a1655a1624"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "7ecd14be-d1ee-4f07-8edd-cec570e44fb5"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"aa366d09-266b-43fd-b239-7c5baad43d56"],

Cell["\<\
The available crystals, sorted from least to highest density:\
\>", "ExampleText",
 CellChangeTimes->{{3.7614605538912497`*^9, 3.761460594128474*^9}},
 CellID->1312185555,ExpressionUUID->"af0f70f3-57dd-4f5f-942c-a1564d11aabf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sort", "@", 
  RowBox[{"AssociationMap", "[", 
   RowBox[{"CrystalDensity", ",", 
    RowBox[{"Keys", "@", "$CrystalData"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.761460308227344*^9, 3.761460309066105*^9}, {
   3.761460431893405*^9, 3.761460462315448*^9}, 3.761460503254122*^9},
 CellLabel->"In[1]:=",
 CellID->85684955,ExpressionUUID->"15f17198-5706-4553-96a1-b14083182445"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Cobalt(II)Fluoride\"\>", "\[Rule]", 
    TemplateBox[{
     "0.7994548326309938`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Ice\"\>", "\[Rule]", 
    TemplateBox[{
     "0.9209639929512548`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Glycyl-L-alanine\"\>", "\[Rule]", 
    TemplateBox[{
     "1.3951467776807247`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"OxalicAcid\"\>", "\[Rule]", 
    TemplateBox[{
     "1.6380151950484518`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Corundum\"\>", "\[Rule]", 
    TemplateBox[{
     "1.643531632873804`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"PrussianBlue\"\>", "\[Rule]", 
    TemplateBox[{
     "1.7120539620813826`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"ManganeseSilicon\"\>", "\[Rule]", 
    TemplateBox[{
     "1.9435609191239076`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"SodiumChloride\"\>", "\[Rule]", 
    TemplateBox[{
     "2.1636163893703153`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Sodalite\"\>", "\[Rule]", 
    TemplateBox[{
     "2.302260417233332`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Silicon\"\>", "\[Rule]", 
    TemplateBox[{
     "2.329179143594061`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Quartz\"\>", "\[Rule]", 
    TemplateBox[{
     "2.6475549164141436`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Aluminium\"\>", "\[Rule]", 
    TemplateBox[{
     "2.697806035349958`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Diamond\"\>", "\[Rule]", 
    TemplateBox[{
     "3.5156765845328004`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"LithiumManganesePhosphate\"\>", "\[Rule]", 
    TemplateBox[{
     "3.530490712687408`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Perovskite\"\>", "\[Rule]", 
    TemplateBox[{
     "4.038732149147626`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Sphalerite\"\>", "\[Rule]", 
    TemplateBox[{
     "4.077287004541344`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"LanthanumHexaboride\"\>", "\[Rule]", 
    TemplateBox[{
     "4.71020281380231`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"CalciumFluoride\"\>", "\[Rule]", 
    TemplateBox[{
     "4.728697130672828`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"LithiumCobaltate\"\>", "\[Rule]", 
    TemplateBox[{
     "4.976128707617049`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"GalliumArsenide\"\>", "\[Rule]", 
    TemplateBox[{
     "5.3171897047691195`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Germanium\"\>", "\[Rule]", 
    TemplateBox[{
     "5.327310035715339`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Zinc\"\>", "\[Rule]", 
    TemplateBox[{
     "7.1375400576264445`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"CopperTungstenOxide\"\>", "\[Rule]", 
    TemplateBox[{
     "7.7865917877290425`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Ferrite\"\>", "\[Rule]", 
    TemplateBox[{
     "7.874219974925922`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Austenite\"\>", "\[Rule]", 
    TemplateBox[{
     "8.077564118611265`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Nickel\"\>", "\[Rule]", 
    TemplateBox[{
     "8.91124832339679`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Copper\"\>", "\[Rule]", 
    TemplateBox[{
     "8.936768807390145`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Polonium\"\>", "\[Rule]", 
    TemplateBox[{
     "9.272717103214951`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Silver\"\>", "\[Rule]", 
    TemplateBox[{
     "10.207764802243739`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Tungsten\"\>", "\[Rule]", 
    TemplateBox[{
     "19.26307312623565`",
      RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        SuperscriptBox["\"cm\"", "3"]}],"grams per centimeter cubed",
      FractionBox["\"Grams\"", 
       SuperscriptBox["\"Centimeters\"", "3"]]},
     "Quantity"]}]}], "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{{3.7614604501615963`*^9, 3.761460516233671*^9}},
 CellLabel->"Out[1]=",
 CellID->308447365,ExpressionUUID->"09772642-d913-44f2-8ade-9d1f5f24f357"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "f95293ad-bef3-4d6c-a237-c7442cb0cb3c"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"dcff4b83-a295-4b32-afb3-1f22eeeef092"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "86413e19-ec61-4480-a848-ec9c5d1fa2ca"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"19917a9a-9582-4e6b-b9a7-5957f74f1488"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"Units\"", "ExampleSubsection",ExpressionUUID->
   "5220ee39-1c8f-43a1-9784-8823d04c1bf7"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.716885374125885*^9, 3.7168853757682877`*^9}},
 CellID->1757724783,ExpressionUUID->"4c1fec4b-6044-4168-9bf8-725894f032e4"],

Cell[TextData[{
 "Set ",
 Cell[BoxData[
  RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]], "InlineFormula",
  ExpressionUUID->"76812c1d-8b0f-4447-9781-15751b9d59e0"],
 " if you do not want output to be a quantity. The output is in ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    StyleBox["g",
     FontSlant->"Plain"], "/", 
    SuperscriptBox["cm", "3"]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"ffc00726-87e8-4120-a582-9d18bb09d672"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.716885426856226*^9, 3.7168854497168493`*^9}, {
  3.7349812276452417`*^9, 3.7349812409340477`*^9}},
 CellID->1711486417,ExpressionUUID->"50efab09-1ba0-475f-8c65-dd7a8261ab72"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalDensity", "[", 
  RowBox[{"\"\<Quartz\>\"", ",", 
   RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7168854625844803`*^9, 3.716885465748891*^9}, {
  3.734981216343446*^9, 3.734981216493065*^9}},
 CellLabel->"In[1]:=",
 CellID->863511635,ExpressionUUID->"99f0ddc8-f077-4f69-932e-34d3cdc9d049"],

Cell[BoxData["2.647554852638349`"], "Output",
 CellChangeTimes->{{3.7168854664270267`*^9, 3.716885471084819*^9}, 
   3.7286235874634867`*^9, {3.734981221099452*^9, 3.734981245752034*^9}},
 CellLabel->"Out[1]=",
 CellID->1995924250,ExpressionUUID->"2f53b931-3a6b-41ce-a23b-677f36a158ac"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "2c4d24f0-34b7-4dd4-b876-a7d3cc882cf0"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"9e99f7f3-cec6-4ea2-b3cb-fb1840e747c5"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "417f5d99-ee6c-4dca-b279-9e95be5f4d96"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"8c41cf91-1944-4ae8-877b-478311d52a9a"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "6a260f57-b6eb-40e5-bd57-6f2f4fc5cc50"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"573495c1-17ab-4d52-a2ac-78925a987282"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrystalDensity", "[", "\"\<NotACrysalInDatabase\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.7271839844193697`*^9, 3.72718399304661*^9}},
 CellLabel->"In[1]:=",
 CellID->1071870866,ExpressionUUID->"a54dd085-398f-44f8-94ce-ef19f51b9367"],

Cell[BoxData[
 TemplateBox[{
  "InputCheck","crystal",
   "\"No data found on \
\[LeftGuillemet]\\!\\(\\*RowBox[{\\\"\\\\\\\"NotACrysalInDatabase\\\\\\\"\\\"}\
]\\)\[RightGuillemet].\"",2,1,2,26434695707905640052,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.728623613114793*^9, 3.734981173881317*^9},
 CellLabel->"During evaluation of In[1]:=",
 CellID->1254211219,ExpressionUUID->"5c0d5269-e9be-47fa-afef-dc2fde4953df"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.728623613121128*^9, 3.73498117390471*^9},
 CellLabel->"Out[1]=",
 CellID->1975962428,ExpressionUUID->"ec77727e-31a1-477f-b443-e0983aeb3f6f"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "1eeae1b4-0535-4ac9-8caf-8de791d0250b"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"6d057761-03df-42f0-82f3-9838a7851f79"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "a5036385-31af-446f-beb1-c3b1b36adc19"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"57d6ecac-c619-466b-a629-3bae97223df6"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"6651ea9f-2733-48c8-b5a0-9fd5c09a1b9e"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.716884923910173*^9, 3.716884928762638*^9}},
 CellID->1761749215,ExpressionUUID->"b215b2c8-7aaf-46be-bd6a-8a90d13910ca"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "CrystalDensity"}], "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"\"\<Units\>\"", "\[Rule]", "True"}], "\[IndentingNewLine]", 
     "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "CrystalDensity"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"_", ",", 
       RowBox[{"OptionsPattern", "[", "]"}]}], "}"}]}], "\[IndentingNewLine]",
     "}"}]}], ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.716830555691573*^9, 3.716830573285467*^9}, {
  3.727178675184021*^9, 3.727178689821534*^9}, {3.7271789775270367`*^9, 
  3.727178977979187*^9}, {3.7348564037912083`*^9, 3.7348564042430964`*^9}, {
  3.735021939129917*^9, 3.7350219394007053`*^9}, {3.756710532217661*^9, 
  3.7567105366789618`*^9}, {3.756710596575431*^9, 3.7567105969234953`*^9}},
 CellLabel->"In[557]:=",
 CellID->389905818,ExpressionUUID->"abe47f30-2bcb-4b65-a322-53925fd6975a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CrystalDensity", "[", 
   RowBox[{"crystal_String", ",", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "data", ",", "unitsQ", ",", "Z", ",", "\[IndentingNewLine]", "f", ",", 
      "m", ",", "V", ",", "NA", ",", "\[IndentingNewLine]", "X", ",", "o", 
      ",", "xyz", ",", "M", ",", "mass", ",", "\[IndentingNewLine]", "temp"}],
      "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"--", "-"}], "*", " ", "Input", " ", "check", " ", "*", 
      RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", "\t", 
    RowBox[{
     RowBox[{"InputCheck", "[", 
      RowBox[{"\"\<CrystalQ\>\"", ",", "crystal"}], "]"}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"data", "=", 
      RowBox[{"$CrystalData", "[", "crystal", "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"unitsQ", "=", 
      RowBox[{"OptionValue", "[", "\"\<Units\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Return", " ", "density", " ", "if", " ", "contained", " ", 
       RowBox[{"in", " ", "'"}], 
       RowBox[{"$CrystalData", "'"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     "\t", 
     RowBox[{"temp", "=", 
      RowBox[{"data", "[", "\"\<MassDensity\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"MissingQ", "[", "temp", "]"}]}], ",", 
       RowBox[{"Return", "@", "temp"}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Lookup", " ", "formula", " ", "units"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"Z", "=", 
      RowBox[{"Lookup", "[", 
       RowBox[{"data", ",", "\"\<FormulaUnits\>\"", ",", 
        RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "Calculations", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"--", 
       RowBox[{"*", " ", "Common", " ", "variables", " ", "*", "--"}]}], 
      "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Volume", ",", " ", 
       RowBox[{"converted", " ", "to", " ", 
        SuperscriptBox["cm", "3"]}]}], " ", "*)"}], "\[IndentingNewLine]", 
     "\t", 
     RowBox[{"V", "=", 
      RowBox[{"Sqrt", "@", 
       RowBox[{"Det", "@", 
        RowBox[{"GetCrystalMetric", "@", "crystal"}]}]}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{"unitsQ", ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"V", "=", 
        RowBox[{"Quantity", "[", 
         RowBox[{
          RowBox[{"V", "*", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "24"}], ")"}]}]}], ",", 
          RowBox[{"\"\<Centimeters\>\"", "^", "3"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"V", "=", 
        RowBox[{"V", "*", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "24"}], ")"}]}]}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Chemical", " ", "formula"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"f", "=", 
      RowBox[{"Sort", "@", 
       RowBox[{"GetElements", "[", 
        RowBox[{"crystal", ",", 
         RowBox[{"\"\<Tally\>\"", "\[Rule]", "True"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"Positive", "@", "Z"}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"--", 
         RowBox[{"*", " ", 
          RowBox[{"A", ".", " ", "Calculate"}], " ", "\[Rho]", " ", "from", 
          " ", "Z", " ", "*", "--"}]}], "*)"}], "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", 
        RowBox[{"Atomic", " ", "mass", " ", "of", " ", "one", " ", "unit"}], 
        " ", "*)"}], "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"m", "=", 
         RowBox[{"MapAt", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"$PeriodicTable", "[", 
             RowBox[{"#", ",", "\"\<AtomicMass\>\""}], "]"}], "&"}], ",", "f",
            ",", 
           RowBox[{"{", 
            RowBox[{"All", ",", "1"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"m", "=", 
         RowBox[{"Total", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Times", "@@", "#"}], "&"}], "/@", "m"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"If", "[", 
         RowBox[{"unitsQ", ",", 
          RowBox[{"m", "=", 
           RowBox[{"Quantity", "[", 
            RowBox[{"m", ",", 
             RowBox[{"\"\<Grams\>\"", "/", "\"\<Moles\>\""}]}], "]"}]}]}], 
         "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"Avogadro", "'"}], "s", " ", "constant"}], " ", "*)"}], 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"If", "[", 
         RowBox[{"unitsQ", ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"NA", "=", 
           RowBox[{"UnitConvert", "[", 
            RowBox[{
             RowBox[{"Quantity", "[", "\"\<AvogadroConstant\>\"", "]"}], ",", 
             
             RowBox[{"\"\<Moles\>\"", "^", 
              RowBox[{"-", "1"}]}]}], "]"}]}], ",", "\[IndentingNewLine]", 
          "\t", 
          RowBox[{"NA", "=", "6.022140857*^23"}]}], "]"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
        RowBox[{"(*", " ", 
         RowBox[{"Calculating", " ", "\[Rho]"}], " ", "*)"}], 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"Return", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Z", "*", "m"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"V", "*", "NA"}], ")"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"--", 
          RowBox[{"*", " ", 
           RowBox[{"B", ".", " ", "Calculate"}], " ", "\[Rho]", " ", "from", 
           " ", "atom", " ", "data"}]}], ",", " ", 
         RowBox[{
         "symmetry", " ", "and", " ", "occupation", " ", "*", "--"}]}], 
        "*)"}], "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", 
        RowBox[{"Elements", ",", " ", 
         RowBox[{
         "occupation", " ", "factors", " ", "and", " ", "coordinates"}]}], 
        " ", "*)"}], "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"X", ",", "o", ",", "xyz"}], "}"}], "=", 
         RowBox[{"Transpose", "@", 
          RowBox[{"Values", "@", 
           RowBox[{"data", "\[LeftDoubleBracket]", 
            RowBox[{
            "\"\<AtomData\>\"", ",", "All", ",", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{
              "\"\<Element\>\"", ",", "\"\<OccupationFactor\>\"", ",", 
               "\"\<FractionalCoordinates\>\""}], "}"}]}], 
            "\[RightDoubleBracket]"}]}]}]}], ";", "\[IndentingNewLine]", "\t", 
        RowBox[{"X", "=", 
         RowBox[{"StringDelete", "[", 
          RowBox[{"X", ",", 
           RowBox[{"{", 
            RowBox[{"DigitCharacter", ",", "\"\<+\>\"", ",", "\"\<-\>\""}], 
            "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t", 
        RowBox[{"o", "=", 
         RowBox[{"o", "/.", 
          RowBox[{"_Missing", "\[Rule]", "1."}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
        RowBox[{"(*", " ", 
         RowBox[{"Site", " ", "multiplicities"}], " ", "*)"}], 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"M", "=", 
         RowBox[{"o", "*", 
          RowBox[{"(", 
           RowBox[{"Length", "/@", 
            RowBox[{"(", 
             RowBox[{
             "SymmetryEquivalentPositions", "[", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"data", "[", "\"\<SpaceGroup\>\"", "]"}], ",", "xyz"}],
               "]"}], ")"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"(*", " ", "Counting", " ", "*)"}], "\[IndentingNewLine]", 
        "\t", 
        RowBox[{"temp", "=", 
         RowBox[{"Transpose", "/@", 
          RowBox[{"GatherBy", "[", 
           RowBox[{
            RowBox[{"Transpose", "[", 
             RowBox[{"{", 
              RowBox[{"X", ",", "M"}], "}"}], "]"}], ",", "First"}], 
           "]"}]}]}], ";", "\[IndentingNewLine]", "\t", 
        RowBox[{"temp", "=", 
         RowBox[{"Sort", "[", 
          RowBox[{"temp", "/.", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{"x_List", ",", "m_List"}], "}"}], "/;", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Depth", "[", "x", "]"}], "===", "2"}]}], 
            "\[RuleDelayed]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"First", "@", "x"}], ",", 
              RowBox[{"Total", "@", "m"}]}], "}"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
        RowBox[{"(*", " ", 
         RowBox[{"Total", " ", "atom", " ", "mass"}], " ", "*)"}], 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"mass", "=", 
         RowBox[{"Total", "[", 
          RowBox[{"temp", "/.", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"X_String", ",", 
              RowBox[{"f_", "?", "NumericQ"}]}], "}"}], "\[RuleDelayed]", 
            "\[IndentingNewLine]", "\t", 
            RowBox[{"f", "*", 
             RowBox[{"$PeriodicTable", "[", 
              RowBox[{"X", ",", "\"\<AtomicMass\>\""}], "]"}]}]}]}], "]"}]}], 
        ";", "\[IndentingNewLine]", "\t", 
        RowBox[{"If", "[", 
         RowBox[{"unitsQ", ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"mass", "=", 
           RowBox[{"UnitConvert", "[", 
            RowBox[{
             RowBox[{"Quantity", "[", 
              RowBox[{"mass", ",", "\"\<AtomicMassUnit\>\""}], "]"}], ",", 
             "\"\<Grams\>\""}], "]"}]}], ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"mass", "=", 
           RowBox[{"mass", "*", 
            RowBox[{"(", "1.6605390*^-24", ")"}]}]}]}], "]"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
        RowBox[{"(*", " ", 
         RowBox[{"Calculated", " ", "density"}], " ", "*)"}], 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"Return", "[", 
         RowBox[{"mass", "/", "V"}], "]"}]}]}], "\[IndentingNewLine]", 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.682241896337058*^9, 3.6822419009563293`*^9}, {
   3.6822421030731297`*^9, 3.682242104796829*^9}, {3.682242247634622*^9, 
   3.682242293608499*^9}, {3.6822423242774973`*^9, 3.6822424939877663`*^9}, {
   3.682242524871819*^9, 3.682242610095582*^9}, {3.6822426631468697`*^9, 
   3.682242849688897*^9}, {3.682242985123843*^9, 3.682243000592795*^9}, {
   3.682243032221999*^9, 3.682243042906146*^9}, {3.682243121993319*^9, 
   3.682243187533738*^9}, {3.6822433171568623`*^9, 3.682243318068676*^9}, {
   3.6822433533711243`*^9, 3.68224345949043*^9}, {3.682243499999116*^9, 
   3.682243500570818*^9}, {3.682243559642397*^9, 3.682243568303032*^9}, {
   3.682243656585619*^9, 3.682243807041559*^9}, {3.682243892622666*^9, 
   3.682243979341007*^9}, {3.682244011749632*^9, 3.682244092729911*^9}, {
   3.6822441869470167`*^9, 3.682244221175058*^9}, {3.68224427065597*^9, 
   3.682244283409008*^9}, {3.6822443160128517`*^9, 3.682244326447394*^9}, {
   3.682244392020493*^9, 3.682244400571671*^9}, {3.682244596208706*^9, 
   3.682244803339835*^9}, {3.682244951115906*^9, 3.6822449654470167`*^9}, {
   3.682247256239483*^9, 3.682247304444981*^9}, {3.682247343926553*^9, 
   3.682247361035624*^9}, {3.682247395780785*^9, 3.6822474984407682`*^9}, {
   3.6822475305652437`*^9, 3.682247636381772*^9}, {3.6822476807262373`*^9, 
   3.682247690229601*^9}, {3.682247723533629*^9, 3.682247825538166*^9}, {
   3.682247866195016*^9, 3.6822478768890457`*^9}, {3.682247927112714*^9, 
   3.682248080675892*^9}, {3.682248357004342*^9, 3.682248375626561*^9}, {
   3.6822486441315317`*^9, 3.682248669634107*^9}, 3.68224956936229*^9, 
   3.682262332986014*^9, {3.6822623719028997`*^9, 3.68226237223594*^9}, {
   3.682312281830681*^9, 3.6823123030407467`*^9}, {3.682323578349629*^9, 
   3.682323592418137*^9}, {3.6823237158461313`*^9, 3.682323721213748*^9}, 
   3.682327662602072*^9, {3.6824963506791697`*^9, 3.6824963547512217`*^9}, {
   3.682496400113083*^9, 3.682496493228437*^9}, 3.682677149488262*^9, {
   3.685082142306231*^9, 3.6850821530756807`*^9}, 3.685084035768195*^9, {
   3.68655238046353*^9, 3.686552426771611*^9}, {3.6865525950866337`*^9, 
   3.686552685595372*^9}, {3.686635545814003*^9, 3.686635612323032*^9}, {
   3.686645933806924*^9, 3.686646007894505*^9}, {3.686646064248117*^9, 
   3.68664607682882*^9}, {3.686655195368894*^9, 3.6866552343027163`*^9}, {
   3.6866553151103287`*^9, 3.686655409251244*^9}, {3.6866554490764103`*^9, 
   3.686655514039054*^9}, {3.686655580018355*^9, 3.686655635546473*^9}, {
   3.686655748745368*^9, 3.686655776590246*^9}, {3.716820660442363*^9, 
   3.716820685815736*^9}, {3.7168211039685993`*^9, 3.716821109006166*^9}, {
   3.716830615633079*^9, 3.716830618327636*^9}, {3.7168723525405407`*^9, 
   3.716872411915575*^9}, {3.716872455943388*^9, 3.7168724908148003`*^9}, {
   3.716872521843114*^9, 3.71687252385538*^9}, {3.716872577629528*^9, 
   3.716872657249303*^9}, {3.716873424383333*^9, 3.7168734253238173`*^9}, {
   3.716875831066147*^9, 3.7168758403345203`*^9}, {3.71687598845652*^9, 
   3.716876188212364*^9}, {3.7168762240798187`*^9, 3.7168762555551567`*^9}, {
   3.716876313371727*^9, 3.716876342141617*^9}, 3.716876387653263*^9, 
   3.716876502535068*^9, {3.716882273100884*^9, 3.716882302398086*^9}, {
   3.716882337123905*^9, 3.716882390906062*^9}, {3.716882612027913*^9, 
   3.7168826456643744`*^9}, {3.7168828190363073`*^9, 3.7168828245346737`*^9}, 
   3.716882856215295*^9, {3.7168828890295563`*^9, 3.716882933256938*^9}, {
   3.716882972687499*^9, 3.716883032260762*^9}, {3.71688311198413*^9, 
   3.716883264778429*^9}, {3.716883308679512*^9, 3.7168835749552794`*^9}, {
   3.716883632940834*^9, 3.7168840031145144`*^9}, {3.716884210520874*^9, 
   3.716884210652163*^9}, {3.717740920524342*^9, 3.717740920535383*^9}, 
   3.718802985939166*^9, {3.718803060838787*^9, 3.718803063559782*^9}, {
   3.718803405559519*^9, 3.7188034070203238`*^9}, {3.718803492139349*^9, 
   3.718803535440364*^9}, {3.718803581847631*^9, 3.7188036505416613`*^9}, {
   3.7188038013472958`*^9, 3.71880383502754*^9}, {3.718803880514141*^9, 
   3.718803890530003*^9}, {3.718813986629037*^9, 3.7188140133657503`*^9}, 
   3.71881405037298*^9, {3.718814127635518*^9, 3.7188141303137074`*^9}, {
   3.727183475234785*^9, 3.727183488999466*^9}, {3.727183544971184*^9, 
   3.7271835698504457`*^9}, {3.727183693593145*^9, 3.7271837314572287`*^9}, {
   3.7271839650112953`*^9, 3.727183970889502*^9}, {3.727601443857336*^9, 
   3.727601458561569*^9}, {3.727602392050802*^9, 3.727602394273776*^9}, {
   3.727602692519127*^9, 3.7276026948129663`*^9}, {3.727602995780644*^9, 
   3.727602996062334*^9}, {3.727675178716289*^9, 3.727675193108197*^9}, {
   3.727684023346468*^9, 3.727684073022949*^9}, {3.727684186645553*^9, 
   3.727684202766356*^9}, {3.7276844252746143`*^9, 3.72768450670531*^9}, {
   3.727684548973167*^9, 3.7276845839085617`*^9}, 3.727684876953658*^9, 
   3.727685350413744*^9, {3.72768540865455*^9, 3.727685435652676*^9}, {
   3.727685480661285*^9, 3.727685542117436*^9}, {3.7276856594542713`*^9, 
   3.7276856884172983`*^9}, {3.727692698149169*^9, 3.727692707306315*^9}, {
   3.727692834250257*^9, 3.727692906376815*^9}, {3.7276929786492853`*^9, 
   3.727692980203782*^9}, {3.7276930221399384`*^9, 3.727693046129095*^9}, {
   3.727693148918601*^9, 3.727693149211893*^9}, {3.728621778539184*^9, 
   3.728621782924053*^9}, {3.728622186113776*^9, 3.728622271893846*^9}, {
   3.72862235223105*^9, 3.7286224157269497`*^9}, {3.728622453339553*^9, 
   3.728622466177504*^9}, {3.728622506850314*^9, 3.728622522978869*^9}, {
   3.728622645073794*^9, 3.728622645599676*^9}, {3.7348563059328127`*^9, 
   3.7348563062980633`*^9}, {3.7348564089570417`*^9, 3.734856437378439*^9}, {
   3.7348565671615143`*^9, 3.734856757173696*^9}, {3.734856876619206*^9, 
   3.73485688172554*^9}, {3.7348571854573812`*^9, 3.734857202421248*^9}, {
   3.734857270457114*^9, 3.7348572948255177`*^9}, {3.734857353640752*^9, 
   3.734857369807686*^9}, {3.734857408151463*^9, 3.734857479130187*^9}, {
   3.734857547078599*^9, 3.734857552801969*^9}, {3.734858177353456*^9, 
   3.734858181956397*^9}, {3.734858239776766*^9, 3.734858241200975*^9}, {
   3.7348582725413446`*^9, 3.734858305971013*^9}, {3.734858338759254*^9, 
   3.734858341795685*^9}, 3.7348586238125353`*^9, {3.73485878448272*^9, 
   3.734858803584711*^9}, {3.734858863989711*^9, 3.734858897972817*^9}, {
   3.734858964998155*^9, 3.734859089189684*^9}, {3.7348591351432734`*^9, 
   3.7348592847685947`*^9}, {3.73485936145327*^9, 3.734859387056665*^9}, 
   3.7348594871559563`*^9, {3.734859535356381*^9, 3.734859552972501*^9}, {
   3.734861188424234*^9, 3.734861190526681*^9}, {3.7348612878515387`*^9, 
   3.734861360990584*^9}, {3.734864976814739*^9, 3.734864978427362*^9}, {
   3.734865010957749*^9, 3.734865018886321*^9}, {3.734866146927218*^9, 
   3.734866171017847*^9}, {3.734866292861107*^9, 3.734866294405472*^9}, {
   3.7349803030876837`*^9, 3.734980336750393*^9}, {3.734980386742298*^9, 
   3.734980389327104*^9}, {3.734980500442094*^9, 3.734980502952849*^9}, {
   3.734980691567004*^9, 3.734980733377968*^9}, {3.735021942077931*^9, 
   3.735021954390654*^9}, {3.735022261648856*^9, 3.735022271967949*^9}, {
   3.7350261439854383`*^9, 3.7350261538299723`*^9}, {3.7350321738180323`*^9, 
   3.735032236267974*^9}, 3.73796846710369*^9, {3.743992566993113*^9, 
   3.743992567160983*^9}, {3.75852913086285*^9, 3.758529133993688*^9}, {
   3.759519250043314*^9, 3.759519250560431*^9}, {3.7614159095772753`*^9, 
   3.7614159103901653`*^9}, 3.762793093063138*^9, {3.786968122195829*^9, 
   3.786968123457449*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[560]:=",
 CellID->1174476129,ExpressionUUID->"44dfc7fb-f0fb-4597-988a-6705d4937777"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[16773, 481, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"54b51e11-72ba-4018-9188-77a1655a1624",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 53587, 1317}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 24, "History",ExpressionUUID->"08ae2e4f-958d-4e9c-aa29-e457fbe8ee10",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 29, "CategorizationSection",ExpressionUUID->"7872b296-25ac-4a13-a194-7e9a6ed0e275",
 CellID->1122911449],
Cell[1309, 41, 134, 2, 30, "Categorization",ExpressionUUID->"77571c6e-273f-4940-b1e2-51371ca68140",
 CellID->686433507],
Cell[1446, 45, 175, 3, 30, "Categorization",ExpressionUUID->"2e066afe-f166-4680-976d-5560219e535b",
 CellID->605800465],
Cell[1624, 50, 171, 3, 30, "Categorization",ExpressionUUID->"41931bc7-a8e5-48dc-8933-5f78bf52f5cf",
 CellID->468444828],
Cell[1798, 55, 166, 2, 30, "Categorization",ExpressionUUID->"57ab3839-b5be-4644-8c87-763713ca811a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2001, 62, 110, 1, 29, "KeywordsSection",ExpressionUUID->"86579194-1247-4e44-b2d2-36ce4f6a524b",
 CellID->477174294],
Cell[2114, 65, 100, 1, 70, "Keywords",ExpressionUUID->"e5576edd-cf61-4a24-a239-f297bea472c4",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2251, 71, 120, 1, 19, "TemplatesSection",ExpressionUUID->"55a5d32f-67b1-45b3-94ba-85282d4ffeee",
 CellID->1872225408],
Cell[2374, 74, 149, 2, 70, "Template",ExpressionUUID->"78d6b351-cde4-4b42-80b6-73b46016c3de",
 CellID->1562036412],
Cell[2526, 78, 137, 2, 70, "Template",ExpressionUUID->"b3bf4e70-109b-49a1-b162-3befcb167c32",
 CellID->158391909],
Cell[2666, 82, 136, 2, 70, "Template",ExpressionUUID->"93e07d46-dcfa-4be7-82ce-3da82a8d8e70",
 CellID->1360575930],
Cell[2805, 86, 137, 2, 70, "Template",ExpressionUUID->"045c21b9-0391-4bf1-a9c9-5daad23213e1",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2979, 93, 108, 1, 19, "DetailsSection",ExpressionUUID->"81020de1-95f4-40a7-861c-a4587e465e9c",
 CellID->307771771],
Cell[3090, 96, 118, 2, 70, "Details",ExpressionUUID->"b5c0dd23-fec7-479d-b8d8-8f10c8372868",
 CellID->670882175],
Cell[3211, 100, 124, 2, 70, "Details",ExpressionUUID->"8a3e8eec-4c68-4a89-abf1-c0e8c6b8ca51",
 CellID->350963985],
Cell[3338, 104, 119, 2, 70, "Details",ExpressionUUID->"fee0eb39-e538-428d-87fe-5e7d20f55023",
 CellID->8391405],
Cell[3460, 108, 124, 2, 70, "Details",ExpressionUUID->"6128b8eb-5eeb-4b95-b669-a0751cae9c55",
 CellID->3610269],
Cell[3587, 112, 116, 2, 70, "Details",ExpressionUUID->"307caff7-54aa-470e-bad3-bca18adcc49c",
 CellID->401364205],
Cell[3706, 116, 116, 2, 70, "Details",ExpressionUUID->"abbe8045-83b0-4ea4-b51f-863c96402f89",
 CellID->350204745],
Cell[3825, 120, 118, 2, 70, "Details",ExpressionUUID->"1221667f-b4e0-431e-abb8-e57f523ab656",
 CellID->732958810],
Cell[3946, 124, 133, 2, 70, "Details",ExpressionUUID->"6bb70b33-1547-49ea-94a0-802da36c777b",
 CellID->222905350],
Cell[4082, 128, 122, 2, 70, "Details",ExpressionUUID->"afb175f8-0d1a-4d69-8035-de0845bdb700",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4241, 135, 112, 1, 63, "ObjectName",ExpressionUUID->"6aad8ba7-e2bf-4964-9f7d-00d39a421616",
 CellID->1224892054],
Cell[4356, 138, 830, 18, 77, "Usage",ExpressionUUID->"ed97a533-bd70-4056-bf5e-34a6f6ede581",
 CellID->982511436],
Cell[5189, 158, 528, 14, 28, "Notes",ExpressionUUID->"4ec397ed-acba-4a61-9450-84534296431a",
 CellID->1067943069],
Cell[5720, 174, 1417, 31, 62, "Notes",ExpressionUUID->"1bed98c7-08ed-4d03-9038-46950e078680",
 CellID->144274847],
Cell[7140, 207, 386, 11, 44, "Input",ExpressionUUID->"592375c9-1791-421c-b127-4183a36c364e",
 CellID->937301987],
Cell[7529, 220, 1044, 22, 57, "Notes",ExpressionUUID->"507fca5b-a3fc-4bc3-b4e0-50565c700ccc",
 CellID->1153012519],
Cell[8576, 244, 165, 2, 25, "Notes",ExpressionUUID->"e335d214-cfb6-4b58-a38a-c508f0c8dd34",
 CellID->676761489],
Cell[8744, 248, 873, 18, 27, "3ColumnTableMod",ExpressionUUID->"1a434280-50d6-4018-9f39-501fd3f44a4c",
 CellID->410498224]
}, Open  ]],
Cell[CellGroupData[{
Cell[9654, 271, 112, 1, 44, "TutorialsSection",ExpressionUUID->"b0c8f7dc-9188-48c5-8b8a-5887eee598dd",
 CellID->250839057],
Cell[9769, 274, 100, 1, 16, "Tutorials",ExpressionUUID->"91661020-ab34-4fd9-b0f7-8fd3d0d21d1b",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[9906, 280, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"e4ce7d8a-bce7-4de0-aba4-38dda6835dfb",
 CellID->1268215905],
Cell[10047, 283, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"9e6ba8e6-b0d6-4eda-a19c-9bd4466a228a",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[10197, 289, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"29082389-a295-4e24-bfc7-0ac3fa8a51a6",
 CellID->1584193535],
Cell[10320, 292, 104, 1, 16, "RelatedLinks",ExpressionUUID->"148e620e-8974-44b7-8d9b-017b33e73412",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[10461, 298, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"a402a45e-f876-495b-a649-fc2a0a86c09f",
 CellID->1255426704],
Cell[10574, 301, 2670, 66, 57, "SeeAlso",ExpressionUUID->"18705762-ca46-4849-8e9b-bd2f45942a00",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[13281, 372, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"1bb389a1-f6fb-4e65-900f-a5ae01be9925",
 CellID->38303248],
Cell[13396, 375, 101, 1, 16, "MoreAbout",ExpressionUUID->"bc80eba8-e023-48ef-ad74-34ad0a756c27",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[13534, 381, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"b9d31a61-2ed4-4cbe-bf0b-8c12ed936584",
 CellID->880084151],
Cell[13948, 394, 491, 11, 24, "ExampleText",ExpressionUUID->"c3a2815d-ad5f-4e0b-b779-bc6c4dee7e0b",
 CellID->1780914380],
Cell[CellGroupData[{
Cell[14464, 409, 244, 4, 27, "Input",ExpressionUUID->"6aa1b0d4-03d7-4721-ba1c-10916ff56a31",
 CellID->273038913],
Cell[14711, 415, 434, 10, 34, "Output",ExpressionUUID->"6d4b6ed9-05e9-421f-81b9-e510b6035b6a",
 CellID->1081815814]
}, Open  ]],
Cell[CellGroupData[{
Cell[15182, 430, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"f63a0140-4241-4f36-a969-dd5e175e12ae",
 CellID->1124312790],
Cell[CellGroupData[{
Cell[15450, 439, 176, 3, 29, "Input",ExpressionUUID->"38b733a6-f09e-4bbb-acdd-378403644e81",
 CellID->616451577],
Cell[15629, 444, 433, 10, 34, "Output",ExpressionUUID->"ca6e602d-43f3-4050-b1f6-691bf9e5786a",
 CellID->498637176]
}, Open  ]],
Cell[CellGroupData[{
Cell[16099, 459, 178, 3, 29, "Input",ExpressionUUID->"2bfa204f-888c-4e11-a061-896676cb6073",
 CellID->450335195],
Cell[16280, 464, 432, 10, 34, "Output",ExpressionUUID->"8cca3331-dd76-4efa-bd79-5cba64d726fa",
 CellID->1840668652]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16773, 481, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"54b51e11-72ba-4018-9188-77a1655a1624",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[CellGroupData[{
Cell[16953, 487, 242, 5, 33, "ExampleSection",ExpressionUUID->"aa366d09-266b-43fd-b239-7c5baad43d56",
 CellID->1293636265],
Cell[17198, 494, 236, 4, 22, "ExampleText",ExpressionUUID->"af0f70f3-57dd-4f5f-942c-a1564d11aabf",
 CellID->1312185555],
Cell[CellGroupData[{
Cell[17459, 502, 404, 8, 29, "Input",ExpressionUUID->"15f17198-5706-4553-96a1-b14083182445",
 CellID->85684955],
Cell[17866, 512, 10551, 245, 404, "Output",ExpressionUUID->"09772642-d913-44f2-8ade-9d1f5f24f357",
 CellID->308447365]
}, Open  ]]
}, Open  ]],
Cell[28444, 761, 265, 5, 33, "ExampleSection",ExpressionUUID->"dcff4b83-a295-4b32-afb3-1f22eeeef092",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[28734, 770, 244, 5, 21, "ExampleSection",ExpressionUUID->"19917a9a-9582-4e6b-b9a7-5957f74f1488",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[29003, 779, 320, 6, 24, "ExampleSubsection",ExpressionUUID->"4c1fec4b-6044-4168-9bf8-725894f032e4",
 CellID->1757724783],
Cell[29326, 787, 666, 17, 24, "ExampleText",ExpressionUUID->"50efab09-1ba0-475f-8c65-dd7a8261ab72",
 CellID->1711486417],
Cell[CellGroupData[{
Cell[30017, 808, 364, 7, 29, "Input",ExpressionUUID->"99f0ddc8-f077-4f69-932e-34d3cdc9d049",
 CellID->863511635],
Cell[30384, 817, 286, 4, 25, "Output",ExpressionUUID->"2f53b931-3a6b-41ce-a23b-677f36a158ac",
 CellID->1995924250]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[30709, 826, 248, 5, 33, "ExampleSection",ExpressionUUID->"9e99f7f3-cec6-4ea2-b3cb-fb1840e747c5",
 CellID->258228157],
Cell[30960, 833, 259, 5, 21, "ExampleSection",ExpressionUUID->"8c41cf91-1944-4ae8-877b-478311d52a9a",
 CellID->2123667759],
Cell[CellGroupData[{
Cell[31244, 842, 252, 5, 21, "ExampleSection",ExpressionUUID->"573495c1-17ab-4d52-a2ac-78925a987282",
 CellID->1305812373],
Cell[CellGroupData[{
Cell[31521, 851, 263, 5, 27, "Input",ExpressionUUID->"a54dd085-398f-44f8-94ce-ef19f51b9367",
 CellID->1071870866],
Cell[31787, 858, 447, 9, 19, "Message",ExpressionUUID->"5c0d5269-e9be-47fa-afef-dc2fde4953df",
 CellID->1254211219],
Cell[32237, 869, 197, 3, 25, "Output",ExpressionUUID->"ec77727e-31a1-477f-b443-e0983aeb3f6f",
 CellID->1975962428]
}, Open  ]]
}, Open  ]],
Cell[32461, 876, 257, 5, 33, "ExampleSection",ExpressionUUID->"6d057761-03df-42f0-82f3-9838a7851f79",
 CellID->1653164318],
Cell[32721, 883, 249, 5, 21, "ExampleSection",ExpressionUUID->"57d6ecac-c619-466b-a629-3bae97223df6",
 CellID->589267740],
Cell[CellGroupData[{
Cell[32995, 892, 373, 8, 21, "ExampleSection",ExpressionUUID->"b215b2c8-7aaf-46be-bd6a-8a90d13910ca",
 CellID->1761749215],
Cell[33371, 902, 1112, 24, 151, "Input",ExpressionUUID->"abe47f30-2bcb-4b65-a322-53925fd6975a",
 InitializationCell->False,
 CellID->389905818],
Cell[34486, 928, 18675, 371, 1471, "Input",ExpressionUUID->"44dfc7fb-f0fb-4597-988a-6705d4937777",
 InitializationCell->False,
 CellID->1174476129]
}, Closed]]
}, Open  ]]
}
]
*)

